home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 June / 64er_Magazin_96-06_1996_Markt__Technik_de_Side_B.d64 / su-do-kern-gen 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  57 lines
  1. 0 rem"basic interprete"
  2. 1 rem"cbm kernal******"
  3. 2 rem"suprados kernal3"
  4. 3 rem"sudo3 kernal 24p"
  5. 4 rem"sudo3 kernal 28p"
  6. 5 rem"0123456789abcdef"
  7. 1000 rem a=accu x=x y=y
  8. 1010 poke52,32:poke56,32:clr
  9. 1020 poke157,128
  10. 1030 print"[147]
  11. 1040 [153]"fuer welchen computer typ (1/2)
  12. 1050 print"1  c64 alt       24pin rom
  13. 1060 [153]"2  c64 neu c128  28pin rom
  14. 1070 geta$:ifa$<>"1"anda$<>"2"then1070
  15. 1080 ifa$="2"then1150
  16. 1090 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
  17. 1100 y=32:ln=31:hn=8:gosub1380
  18. 1110 y=64:ln=55:hn=8:gosub1380
  19. 1120 ln=79
  20. 1130 y=96
  21. 1140 goto1220:rem-----------------------
  22. 1150 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
  23. 1160 y=32:ln=7:hn=8:gosub1380
  24. 1170 y=64:ln=31:hn=8:gosub1380
  25. 1180 y=96:ln=7:hn=8:gosub1380
  26. 1190 y=128:ln=55:hn=8:gosub1380
  27. 1200 ln=103
  28. 1210 y=160
  29. 1220 print
  30. 1230 poke198,0:input"legen sie die zieldisk ein und druecken sie return";a$
  31. 1240 open15,8,15,"i":close15
  32. 1250 hn=8
  33. 1260 poke780,252:rem zeiger auf start
  34. 1270 poke781,0:rem low ende
  35. 1280 poke782,y:rem high ende
  36. 1290 poke252,0  :rem start low
  37. 1300 poke253,32 :rem start high
  38. 1310 poke186,8:rem geraeteadresse
  39. 1320 poke183,16:rem laenge d.namens
  40. 1330 poke187,ln:rem low anfang name
  41. 1340 poke188,hn:rem high anfang name
  42. 1350 sys65496:rem save
  43. 1360 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
  44. 1370 end
  45. 1380 rem load -------------------------
  46. 1390 poke780,0:rem =load
  47. 1400 poke781,0:rem start high
  48. 1410 poke782,y:rem start low
  49. 1420 poke186,8:rem geraeteadresse
  50. 1430 poke185,0:rem absolut laden
  51. 1440 poke183,16:rem laenge d.namens
  52. 1450 poke187,ln:rem low anfang name
  53. 1460 poke188,hn:rem high anfang name
  54. 1470 sys65493:rem load
  55. 1480 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
  56. 1490 return
  57.